object FilterForm: TFilterForm Left = 199 Top = 101 ActiveControl = Field1 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Filter Records' ClientHeight = 220 ClientWidth = 433 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter Scaled = False OnActivate = FormActivate OnShow = FormShow TextHeight = 13 object Label1: TLabel Left = 73 Top = 12 Width = 101 Height = 16 AutoSize = False Caption = 'Field:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label2: TLabel Left = 198 Top = 12 Width = 96 Height = 16 AutoSize = False Caption = 'Comparison:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label3: TLabel Left = 300 Top = 12 Width = 113 Height = 16 AutoSize = False Caption = 'Compare to:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Bevel1: TBevel Left = 5 Top = 198 Width = 421 Height = 12 Shape = bsTopLine end object Operator1: TComboBox Tag = 1 Left = 198 Top = 30 Width = 97 Height = 20 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'is Blank' 'is Not Blank' 'Equal to' 'Not Equal to' 'Greater Than' 'LessThan' 'Greater or Equal to' 'Less or Equal to') TabOrder = 1 end object Value1: TEdit Tag = 1 Left = 300 Top = 30 Width = 121 Height = 20 TabOrder = 2 end object Link2: TComboBox Tag = 2 Left = 11 Top = 52 Width = 58 Height = 20 Style = csDropDownList ItemHeight = 13 Items.Strings = ( '(none)' 'And' 'Or') TabOrder = 3 OnChange = LinkChange OnExit = LinkExit end object Link3: TComboBox Tag = 3 Left = 11 Top = 74 Width = 58 Height = 20 Style = csDropDownList Enabled = False ItemHeight = 13 Items.Strings = ( '(none)' 'And' 'Or') TabOrder = 7 OnChange = LinkChange OnExit = LinkExit end object Operator2: TComboBox Tag = 2 Left = 198 Top = 52 Width = 97 Height = 20 Style = csDropDownList Enabled = False ItemHeight = 13 Items.Strings = ( 'is Blank' 'is Not Blank' 'Equal to' 'Not Equal to' 'Greater Than' 'LessThan' 'Greater or Equal to' 'Less or Equal to') TabOrder = 5 end object Value2: TEdit Tag = 2 Left = 300 Top = 52 Width = 121 Height = 20 Enabled = False TabOrder = 6 end object Link4: TComboBox Tag = 4 Left = 11 Top = 96 Width = 58 Height = 20 Style = csDropDownList Enabled = False ItemHeight = 13 Items.Strings = ( '(none)' 'And' 'Or') TabOrder = 11 OnChange = LinkChange OnExit = LinkExit end object Operator3: TComboBox Tag = 3 Left = 198 Top = 74 Width = 97 Height = 20 Style = csDropDownList Enabled = False ItemHeight = 13 Items.Strings = ( 'is Blank' 'is Not Blank' 'Equal to' 'Not Equal to' 'Greater Than' 'LessThan' 'Greater or Equal to' 'Less or Equal to') TabOrder = 9 end object Value3: TEdit Tag = 3 Left = 300 Top = 74 Width = 121 Height = 20 Enabled = False TabOrder = 10 end object Link5: TComboBox Tag = 5 Left = 11 Top = 118 Width = 58 Height = 20 Style = csDropDownList Enabled = False ItemHeight = 13 Items.Strings = ( '(none)' 'And' 'Or') TabOrder = 15 OnChange = LinkChange OnExit = LinkExit end object Operator4: TComboBox Tag = 4 Left = 198 Top = 96 Width = 97 Height = 20 Style = csDropDownList Enabled = False ItemHeight = 13 Items.Strings = ( 'is Blank' 'is Not Blank' 'Equal to' 'Not Equal to' 'Greater Than' 'LessThan' 'Greater or Equal to' 'Less or Equal to') TabOrder = 13 end object Value4: TEdit Tag = 4 Left = 300 Top = 96 Width = 121 Height = 20 Enabled = False TabOrder = 14 end object Operator5: TComboBox Tag = 5 Left = 198 Top = 118 Width = 97 Height = 20 Style = csDropDownList Enabled = False ItemHeight = 13 Items.Strings = ( 'is Blank' 'is Not Blank' 'Equal to' 'Not Equal to' 'Greater Than' 'LessThan' 'Greater or Equal to' 'Less or Equal to') TabOrder = 17 end object Value5: TEdit Tag = 5 Left = 300 Top = 118 Width = 121 Height = 20 Enabled = False TabOrder = 18 end object Link6: TComboBox Tag = 6 Left = 11 Top = 140 Width = 58 Height = 20 Style = csDropDownList Enabled = False ItemHeight = 13 Items.Strings = ( '(none)' 'And' 'Or') TabOrder = 19 OnChange = LinkChange OnExit = LinkExit end object Operator6: TComboBox Tag = 6 Left = 198 Top = 140 Width = 97 Height = 20 Style = csDropDownList Enabled = False ItemHeight = 13 Items.Strings = ( 'is Blank' 'is Not Blank' 'Equal to' 'Not Equal to' 'Greater Than' 'LessThan' 'Greater or Equal to' 'Less or Equal to') TabOrder = 21 end object Value6: TEdit Tag = 6 Left = 300 Top = 140 Width = 121 Height = 20 Enabled = False TabOrder = 22 end object Panel1: TPanel Left = 0 Top = 182 Width = 433 Height = 38 Align = alBottom Alignment = taLeftJustify TabOrder = 23 object NoteLabel: TLabel Left = 3 Top = 3 Width = 254 Height = 27 AutoSize = False Caption = 'For partial matches use '#39'..'#39' at the end of the Compare to value ' + 'and Comparison '#39'Equal'#39'.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object OKBtn: TBitBtn Left = 261 Top = 4 Width = 80 Height = 30 TabOrder = 0 OnClick = OKBtnClick Kind = bkOK end object CancelBtn: TBitBtn Left = 345 Top = 4 Width = 80 Height = 30 TabOrder = 1 Kind = bkCancel end end object Field1: TDBFieldCombo Left = 74 Top = 30 Width = 119 Height = 20 Style = csDropDownList ItemHeight = 13 TabOrder = 0 DataSource = DataSource1 UseFieldNames = False end object Field2: TDBFieldCombo Left = 74 Top = 52 Width = 119 Height = 20 Style = csDropDownList ItemHeight = 13 TabOrder = 4 DataSource = DataSource1 UseFieldNames = False end object Field3: TDBFieldCombo Left = 74 Top = 74 Width = 119 Height = 20 Style = csDropDownList ItemHeight = 13 TabOrder = 8 DataSource = DataSource1 UseFieldNames = False end object Field4: TDBFieldCombo Left = 74 Top = 96 Width = 119 Height = 20 Style = csDropDownList ItemHeight = 13 TabOrder = 12 DataSource = DataSource1 UseFieldNames = False end object Field5: TDBFieldCombo Left = 74 Top = 118 Width = 119 Height = 20 Style = csDropDownList ItemHeight = 13 TabOrder = 16 DataSource = DataSource1 UseFieldNames = False end object Field6: TDBFieldCombo Left = 74 Top = 140 Width = 119 Height = 20 Style = csDropDownList ItemHeight = 13 TabOrder = 20 DataSource = DataSource1 UseFieldNames = False end object DataSource1: TDataSource end end